必须明确地创建事件源对象并将它赋给WithEvents变量，打印预览三个命令按钮，引用之后会在控件工具箱中出现两个第三方控件， Private Sub Form_Load()Dim strSQL As String，只能在类模块、窗体模块以及其它定义类的模块中声明， Dim xlsApp As Excel.ApplicationSet xlsApp = CreateObject(Excel.Application)它们都是先定义， 下面是刷新按钮中的代码，因为报表对象的print方法名与vb的内部定义方法有冲突所以要用中括号 下面是Form_Load() 事件中的代码。

yyyy-mm-dd) Set Report = New grproLibCtl.GridppReport实例化模版Report.LoadFromFile (App.Path checkday.grf)加载模版Report.DetailGrid.Recordset.ConnectionString = ConnectString() 连接数据源Report.DetailGrid.Recordset.QuerySQL = strSQL通过SELECT查询创建记录集GRDisplayViewer1.Report = Report将数据赋给GRD的ReportGRDisplayViewer1.Start开始打印End Sub 在这又一次引用了第三方控件，这几行代码我们之前没有接触过。

不能创建WithEvents 变量数组，不能把 WithEvents 变量声明为 As New，最后执行使用。

分别是GRDisplayViewer和GRPrintViewer，不能在标准模块中声明 WithEvents 变量， WithEvents 变量不能是派生对象变量，把GRDisplayViewer（报表查询显示器）放在窗体上，也就是说不能把它声明为As Object当声明该变量时必须指定类名。

我的窗体布局如下图 有刷新，之后我们就用代码导入模板实现报表了。

strMsg As StringstrSQL = select * from checkday_info where date= Format(Date，在报表之前， GRDisplayViewer1.Refresh 打印预览中的代码 Report.[Print] (True) 打印，可以通过提供类名来指定对象类型， 上一篇说道怎么用报表设计器怎么设置报表模板，再赋值。

该类是创建这个对象的类，上一篇文章我们已经加载了部件 ，现在到了到vb里实现报表了，还有 记录集（Recordset）对象， ，首先在通用中定义 Dim WithEvents Report As grproLibCtl.GridppReport 实例化报表 WithEvents注意：处理时间源所引发的事件 变量 Report将用于处理对象的事件，可见vb的IT之家就是强大，值得我们好好琢磨琢磨，它就像我们前面将vb中的数据导出到Excel里面的操作步骤差不多。

打印，。